-- background: 2775 from stack: in.2
-- bmap block id: 12158
-- flags: 0000
-- background id: 0
-- name: 


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=423 top=56 right=70 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: closingBal


-- part 2 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=423 top=91 right=105 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: newDepositsTotal


-- part 4 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=423 top=126 right=140 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: subtotal


-- part 6 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=113 top=44 right=260 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: cksOut


-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=323 top=243 right=283 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 600 / 600
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Erase All
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    put empty into bg fld "closingBal"
    put empty into bg fld "lastrec"
    put empty into bg fld "out"
  end if

  put empty into bg fld "cleared"
  put empty into bg fld "cksOut"
  put empty into bg fld "cksOutTotal"
  put empty into bg fld "newDeposits"
  put empty into bg fld "NewDeps"
  put empty into bg fld "newDepositsTotal"
  put empty into bg fld "subTotal"
  put empty into bg fld "cksOutstanding"
  put empty into bg fld "balance"
end mouseUp



-- part 9 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=423 top=161 right=175 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: cksOutstanding


-- part 11 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=113 top=259 right=274 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: cksOutTotal


-- part 12 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=423 top=196 right=210 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: balance


-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=405 top=252 right=274 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compute
----- HyperTalk script -----
on mouseUp
  if bg fld "closingBal" is empty then
    play harpsichord c6
    answer "You must enter the bank's closing balance before you "& "attempt to reconcile your checking account."
    get the loc of bg fld "closingBal"
    click at it
    exit mouseup
  end if

  set lockscreen to true
  go cd "main"
  put bg fld "balance" into curBal
  go cd "reconcile"
  global match
  set numberformat to "0.00"
  -- CLEAR CHECKS
  if bg fld "cleared" is not empty then
    put 1 into x
    repeat for the number of lines in bg fld "cleared"
      set cursor to busy
      put 0 into lastPos
      put line x of bg fld "cleared" into checkNum
      set lockscreen to true
      go cd "checkList"
      put find (bg fld "checkList",match & checkNum) into lastPos
      if item 1 of lastPos is not 0 then
        if item 2 of line (item 1 of lastPos) of bg fld "checkList" = checkNum then
          put "1" into item 5 of line (item 1 of lastPos) of bg fld "checkList"
          go cd "reconcile"
          delete line x of bg fld "cleared"
        end if
      else
        go cd "reconcile"
        put x + 1 into x
      end if
    end repeat
    if bg fld "cleared" is not empty then
      -- CLEAR DEPOSITS
      put 1 into x
      repeat for the number of lines in bg fld "cleared"
        set cursor to busy
        put 0 into lastPos
        put line x of bg fld "cleared" into checkNum
        set lockscreen to true
        go cd "deposits"
        put find (bg fld "deposit",match & checkNum) into lastPos
        if item 1 of lastPos is not 0 then
          if item 2 of line (item 1 of lastPos) of bg fld "deposit" = checkNum then
            put "1" into item 5 of line (item 1 of lastPos) of bg fld "deposit"
            go cd "reconcile"
            delete line x of bg fld "cleared"
          end if
        else
          go cd "reconcile"
          put x + 1 into x
        end if
      end repeat
    end if
  end if
  if bg fld "cleared" is not empty then
    play harpsichord c6
    answer "Some items were not cleared or were not found in your "& "check register."
  end if
  -- LIST OUTSTANDING CHECKS
  set lockscreen to true
  go cd "checkList"
  put 1 into x
  repeat for the number of lines in bg fld "checklist"
    set cursor to busy
    if item 5 of line x of bg fld "checklist" is "0" then
      put item 2 of line x of bg fld "checklist" & "," & item 4 of line x of bg fld "checklist" & return after tempList
    end if
    put x + 1 into x
  end repeat
  go cd "reconcile"
  put templist into bg fld "cksOut"
  -- ADDING OUTSTANDING CHECKS
  put 0 into subtotal
  put 1 into x
  repeat for the number of lines in bg fld "cksOut"
    add item 2 of line x of bg fld "cksOut" to subtotal
    put x + 1 into x
  end repeat
  put subtotal into bg fld "cksOutTotal"
  put subtotal into bg fld "cksOutstanding"
  -- LISTING OUTSTANDING DEPOSITS
  put 0 into subtotal
  put empty into tempList
  put 1 into x
  go cd "deposits"
  repeat for the number of lines in bg fld "deposit"
    set cursor to busy
    if item 5 of line x of bg fld "deposit" is "0" then
      put item 2 of line x of bg fld "deposit" & "," & item 4 of line x of bg fld "deposit" & return after tempList
    end if
    put x + 1 into x
  end repeat
  go cd "reconcile"
  put templist into bg fld "newDeposits"
  put 1 into x
  repeat for the number of lines in bg fld "newDeposits"
    add item 2 of line x of bg fld "newDeposits" to subtotal
    put x + 1 into x
  end repeat
  put subtotal into bg fld "newDepositsTotal"
  -- BANK BALANCE & DEPOSITS
  put bg fld "closingBal" into bal
  put bg fld "newDepositsTotal" into bg fld "newDeps"
  put bg fld "newDepositsTotal" + bal into bg fld "subtotal"
  put "$" & bg fld "subtotal" - bg fld "cksOutstanding" into bg fld "balance"
  if bg fld "subtotal" - bg fld "cksOutstanding" = curBal then
    play "hallelujah"
    answer "Congratulations!  Your account has been reconciled!"
    put the short date into bg fld "lastRec"
    put empty into bg fld "out"
  else
    play "oops"
    put (bg fld "subtotal" - bg fld "cksOutstanding") - curBal into temp
    answer "Your account is out of balance by $" & temp & ".  Make sure you've cancelled the correct items and that check "& "amounts are entered correctly.  Press the PANIC button for more help."
    put "OUT OF BALANCE BY $" & temp into bg fld "out"
    put "--" into bg fld "lastRec"
  end if
  set scroll of bg fld "cksOut" to 0
  set scroll of bg fld "newDeposits" to 0
  set scroll of bg fld "cleared" to 0
end mouseUp


-- part 16 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=8 top=44 right=260 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: cleared


-- part 17 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=253 top=288 right=337 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 7420 / 7420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main
----- HyperTalk script -----
on mouseUp
  visual iris open to inverse
  visual dissolve
  go cd "main"
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=305 top=288 right=337 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 20953 / 20953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Categories
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  go cd "main"
  put bg fld "categories" into categories
  go back
  DoList 998,categories,1
  if the result > 0 then
    put item 2 of the result into category
  end if
  go cd category
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=45 top=288 right=337 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 17885 / 17885
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    domenu "quit hypercard"
    exit mouseUp
  end if
  visual iris open to inverse
  visual dissolve
  go home
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=357 top=288 right=337 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 26574 / 26574
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Deposits
----- HyperTalk script -----
on mouseUp
  visual iris open to inverse
  visual dissolve
  go cd "deposits"
end MouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=409 top=288 right=337 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 21690 / 21690
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Register
----- HyperTalk script -----
on mouseUp
  visual iris open to inverse
  visual dissolve
  go cd "checklist"
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=462 top=28 right=51 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go back
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=201 top=288 right=337 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print...
----- HyperTalk script -----
on mouseUp
  domenu "print card"
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=97 top=288 right=337 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  DoList 998,"About Business Plan,"& "Adding categories,Category viewing,Check register,"& "Comparing reports,Creating reports,Deleting categories,"& "Deleting entries,Editing entries,Entering checks,"& "Entering deposits,Importing,"& "Opening reports,Period report,Printing reports,Reconciling,"& "Reports,Saving reports,Searching for items,Shareware notice,"& "Sorting checks,Yearly report",1
  if the result > 0 then
    put item 2 of the result into theTopic
    put "◊◊ " & thetopic into thetopic
    visual iris open to inverse
    visual dissolve
    go cd "Help"
    find string theTopic in bg fld "help"
  end if
  click at 100,0
end mouseUp




-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=426 top=28 right=51 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual iris open to inverse
  visual dissolve
  go cd "about"
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=149 top=288 right=337 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 17584 / 17584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Panic
----- HyperTalk script -----
on mouseUp
  Zoomer 142,288,193,337,154,144,354,229
  Zoomer 154,144,354,229,2,23,510,339
  set visible of cd fld "panic" to true
end mouseUp



-- part 31 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=218 top=44 right=260 bottom=321
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: newDeposits


-- part 33 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=218 top=259 right=274 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: newDeps


-- part 35 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=307 right=340 bottom=38
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go prev cd
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=475 top=307 right=340 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go next cd
end mouseUp



-- part 39 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=449 top=220 right=234 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: lastRec


-- part 40 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=331 top=220 right=234 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: 


-- part 37 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=65 top=72 right=297 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: help
----- HyperTalk script -----
on mouseUp
  Zoomer 65,72,442,297,154,144,354,229
  Zoomer 154,144,354,229,3,286,25,308
  hide pict of this cd
  hide bg fld "help"

end mouseUp




-- part 42 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=321 top=235 right=249 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: out